' SoundPref.ibas
'   Version 1.01 - November 20, 2006
'   by Laurent Duveau
'     Web Site = http://www.aldweb.com
'     e-Mail   = info@aldweb.com

{CREATORID "LDSP"}
{VERSION "1.0"}
'{MINOSVERSION "3.0"}
'{PARSER OFF}
'{KEYEVENTS OFF}
'{SECUREFILES ON}


BEGIN
 S$="System"
 A$=CALLPP$(100,S$)
 GOSUB _Result 
 
 S$="Game"
 A$=CALLPP$(100,S$)
 GOSUB _Result
 
 S$="Alarm"
 A$=CALLPP$(100,S$)
 GOSUB _Result
 
 S$="Windows" ' :-) 
 A$=CALLPP$(100,S$)
 GOSUB _Result

 WAIT
END

_Result:
 PRINT S$;
 PRINT " sound is ";
 IF A$="-1" PRINT "-- error! --"
 IF A$="0" PRINT "Off"
 IF A$="8" PRINT "On - Low"
 IF A$="32" PRINT "On - Medium"
 IF A$="64" PRINT "On - High"
RETURN 